Loadstar 162/162.d81/b.mr. icon

Commodore BASIC | 2022-08-26 | 5KB | 140 lines

10 poke53280,0:poke53281,0:print"[147]";
12 poke52,144:poke56,144:clr:printchr$(142)
14 dv=peek(186):ifdv<8thendv=8
16 ifpeek(49152)=76then30
18 print"loading mr.icon demo"
20 sys57812"mr. mouse",dv,0:poke780,0:poke781,0:poke782,192:sys65493
25 sys57812"mr.i/spts",dv,0:poke780,0:poke781,0:poke782,144:sys65493
30 ml=49152:v=ml+111:sysml:poke53281,11
32 sysml+30,5,35,5,15,255,16
34 a$(1)="                             [146]"
35 a$(2)="      loadstar presents      [146]"
36 a$(3)="      the mr. icon demo      [146]"
37 a$(4)="   programed by terry flynn  [146]"
40 poke53271,0:poke53275,0:poke53276,0
42 poke53277,0:poke53264,0:poke2040,11
45 sysml+12,6,6,a$(1)
46 sysml+12,6,7,a$(2)
47 sysml+12,6,8,a$(1):poke646,15
48 sysml+12,6,9,a$(1)
49 sysml+12,6,10,a$(3)
50 sysml+12,6,11,a$(1):poke646,12
51 sysml+12,6,12,a$(1)
52 sysml+12,6,13,a$(4)
53 sysml+12,6,14,a$(1)
55 sysml+30,16,24,17,19,255,16
57 poke646,1:sysml+12,17,18," begin [146]"
60 sysml+21,24,19:sysml+6,0,0:poke646,14
65 gosub9995
70 poke53281,0:print"[147]"+chr$(14):sysml+6,20,1:ff=999:gosub9997:ff=299
72 print"[205]r. [201]con is an add-on utility created":gosub9997
74 print"strictly for [205]r. [205]ouse. [205]r. [201]con allows":gosub9997
76 print"complete control of [205]r. [205]ouse's sprite":gosub9997
78 print"pointer."
80 print"[211]wapping sprite icons only requires":gosub9997
82 print"one quick basic command! [212]his command":gosub9997
84 print"will display any one of 64 icon shapes":gosub9997
86 print"in the color of your choosing! [217]ou":gosub9997
88 print"can use the icon shapes in this demo":gosub9997
90 print"or you can create your own custom icons":gosub9997
92 print"with any good sprite editor.":gosub9997
94 gosub9992:sysml+6,0,1:gosub9995
96 sysml+30,13,27,17,19,160,6:ff=99:gosub9997
98 gosub9992:gosub9997
100 print"[147]":sysml+6,20,1:ff=999:gosub9997:ff=299
102 print"[205]r. [201]con returns control of the sprite":gosub9997
104 print"number 0 registers to basic.":gosub9997
106 print"[212]hat means that you have multicolor,":gosub9997
108 print"[216] and [217] expand, and sprite priority":gosub9997
110 print"at your fingertips!":gosub9997
112 pokev,159:sysml+6,0,1:sysml+30,0,39,7,12,160,6
113 sysml+12,6,8," [216] [197]xpand [146]"
114 sysml+15,1,6,16,8,8
115 sysml+12,22,8," [217] [197]xpand [146]"
116 sysml+15,2,22,30,8,8
117 sysml+12,6,11," [205]ulticol [146]"
118 sysml+15,3,6,16,11,11
119 sysml+12,22,11," [208]riority [146]"
120 sysml+15,4,22,30,11,11
125 gosub9992:sysml+15,5,15,25,18,18:pokev+1,5
130 sysml+9:oncr%goto132,134,136,138,140
131 goto130
132 ifpeek(53277)thenpoke53277,0:goto130
133 poke53277,1:goto130
134 ifpeek(53271)thenpoke53271,0:goto130
135 poke53271,1:goto130
136 ifpeek(53276)thenpoke53276,0:sysml+6,0,1:goto130
137 poke53276,1:sysml+6,1,1:goto130
138 ifpeek(53275)thenpoke53275,0:goto130
139 poke53275,1:goto130
140 poke53271,0:poke53275,0:poke53276,0:poke53277,0:sysml+6,20,1:print"[147]"
150 print"[215]ith this new control over the mouse":gosub9997
152 print"sprite, mouse animation becomes a snap!":gosub9997
154 print"[200]ow about a clock icon with a rotating":gosub9997
156 print"sweep-hand?":gosub9997:ff=45:a=2:tt=12
160 sysml+6,a,7:gosub9997:sysml+9
162 a=a+1:ifa>9thena=2:tt=tt-1
164 ifttthen160
170 gosub9992:sysml+6,0,1
172 sysml+9:ifcr%<>5then172
180 sysml+6,20,1:print"[147]":ff=299
182 print"[207]r how about a targeting icon for that":gosub9997
184 print"great 'shoot em up' game you've been":gosub9997
186 print"working on? [205]aybe with a little bomb":gosub9997
188 print"animation tossed in?":gosub9997:ff=199
190 sysml+30,0,39,8,14,160,9
191 sysml+15,5,13,23,17,17
192 sysml+18,0,39,8,18:sysml+6,10,1:gosub9992:sysml+21,8,10
194 sysml+9:ifcr%=5then250
200 ifl2%=0then194
202 sysml+3
204 sysml+6,11,1:gosub9997
205 sysml+6,12,1:gosub9997
206 sysml+6,13,1:gosub9997
207 sysml+6,14,10:gosub9997
208 sysml+6,15,10:gosub9997
209 sysml+6,16,10:gosub9997
210 sysml+6,17,2:gosub9997
211 sysml+6,18,2:gosub9997
212 sysml+6,10,1:sysml:goto194
250 print"[147]":sysml+6,20,1:ff=399
252 print"[213]sing [205]r. [201]con will add a nice touch to":gosub9997
254 print"an already great mouse driver! [193]nd the":gosub9997
256 print"possibilities are only limited by your":gosub9997
258 print"own imagination.":gosub9997:sysml+30,0,39,7,13,160,15:sysml+6,0,1
260 sysml+12,6,8," [200]andpoint [146]"
262 sysml+12,22,8," [205]ousetail [146]"
264 sysml+12,6,11," [200]appyface [146]"
267 sysml+12,22,11," [211]top [211]ign [146]"
270 sysml+15,5,10,30,18,18:pokev+1,5
272 sysml+30,10,30,17,19,160,14:cs=peek(646)
274 poke646,6:sysml+12,10,18," [210]eturn to [204]oadstar? [146]":poke646,cs
275 sysml+9:oncr%goto282,284,286,288,300
280 goto275
282 sysml+6,21,10:goto275
284 sysml+6,24,9:goto275
286 sysml+6,23,7:goto275
288 sysml+6,22,8:goto275
300 print"[147]":poke53269,0:poke198,0:goto40000
9990 getz$:ifz$=""then9990
9991 sysml+3:poke53269,0:poke53281,0:print"[147][154]";:list-9990
9992 sysml+30,13,27,17,19,160,14:cs=peek(646)
9993 poke646,6:sysml+12,15,18," continue? [146]":poke646,cs:return
9994 :
9995 getz$:ifz$=""then9995
9996 poke198,0:return
9997 forf=0toff:next:return
9998 :
9999 :
10000 n$="b.mr.icon/demo":open1,8,15,"s0:"+n$:close1:saven$,8
40000 sysml+3:u=828:fori=0to21:pokeu+i,8+i:next
40010 ifdv<8ordv>29ordv=8then40030
40020 a=peek(u):b=peek(u+dv-8):pokeu,b:pokeu+dv-8,a
40030 a$="hello connect":forj=8to29:i=peek(828+j-8):ifi=14thennext
40040 close2:open2,i,2:close2:ifstthen40060
40050 close15:open15,i,15,"r0:"+a$+"="+a$:input#15,er:close15:ifer=63then40070
40060 next:print"[147]":poke53272,23:poke186,8:end
40070 q$=chr$(34):poke646,0:print"[147]":poke53272,23
40080 print"[147]p[207]2048,0:p[207]44,8:p[207]43,1:p[207]56,160:p[207]55,0:clr:l[207]"q$a$q$","i
40090 print"run:":poke631,13:poke632,13:poke198,2:end